(COMMENT BPS 17000. REGPDL 4000. SPECPDL 2000.)

(SETQ BASE (SETQ IBASE 10.)) 

(comment (macrodef if (p a b) (cond (p a) (t b))))
(comment (macrodef iff (p a) (cond (p a))))

(comment  DOESN'T WORK
(defun iff macro (l) ((lambda (f) (rplaca l (car f)) (rplaca l (cdr f)))
(list 'cond (list (cadr l) (caddr l)) (list t (cadddr l)))))
)

(PROGN
	(FASLOAD DEMON FAS DSK (AID RPG))
	(FASLOAD DUMP FAS DSK (AID RPG))
	(HELP)

(SETQ undf-fnctn '(LAMBDA (FN) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR FN)) (TYO 32.)
	(PRINC '|Undefined Function. Either type the name /
of a function to substitute or ↑G: |)
	(NCONS (READ))))
(SETQ unbnd-vrbl '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Unbound variable. Either type a value to use or ↑G: |)
	(NCONS (READ))))
(SETQ wrng-type-arg '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Bad argument to function - probably wrong type. /
Type a value to use or ↑G: |)
	(NCONS (READ))))
(SETQ wrng-no-args '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Wrong number of arguments to form. /
Type a form to use or ↑G: |)
	(NCONS (READ))))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))

(defun ≤ (m n) (not (< n m)))

(defun ≥ (m n) (not (> n m)))

(defun if macro (l) (list 'cond (list (cadr l) (caddr l)) (list 't (cadddr l))))

(defun iff macro (l) (list 'cond (list (cadr l) (caddr l))))

(DEFUN LOWER () (DO ((I 141 (1+ I)))
		    ((LESSP 172 I))
		    (SETSYNTAX I 2 I)))
(DEFUN UPPER () (DO ((I 141 (1+ I)))
		    ((LESSP 172 I))
		    (SETSYNTAX I 2 (- I 40))))

	'Done!)